#!/usr/bin/env perl

use MIME::Lite;

use MIME::Base64;
use Authen::SASL;
my $host='smtp.163.com';
my $pass='xxxx';
my $user='yuanhp_mail@163.com';
my $msg = MIME::Lite->new(
    From     => 'yuanhp_mail@163.com',
    To       => '1297704895@qq.com',
    Cc       => '',
    Subject  => 'hello，my first mail from chenqing.org',
    Type  => 'multipart/mixed',
    Data =>' other data'
);

$msg->attach(
Type => 'text/html',
Data => qq{
<body>
这是我的 <b>good</b> image:
<img src="cid:logo.png">
</body>
},
);


MIME::Lite->send('smtp', $host, Timeout=>60,    AuthUser=>$user, AuthPass=>$pass);
$msg->send;



